home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 1 / Cream of the Crop 1.iso / UTILITY / TASEXAM6.ARJ / GRAPHALL.TAS < prev    next >
Text File  |  1992-04-12  |  2KB  |  49 lines
  1. {
  2. A script written to simply graph all stocks in the ticker list. Good for
  3. checking up on your current holds, or those which you are interested in
  4. watching closely. It should be noted that the volume 5MA and 10MA
  5. calculations do not include today, rather they end yesterday. They are
  6. intended to show how volume has behaved in the one-week and two-week
  7. periods immediately prior to today.
  8. Stocks with less than 201 days of data will be passed.
  9. Written 3/28/92 by Tom Rategan.
  10. }
  11. if quote_count < 201 then return;
  12. #max_quotes 255
  13. qc = (quote_count-1);
  14. hiqc : array;
  15. hiqc = hhv(c,qc);
  16. oh = (1-(c[0]/hiqc[0]))*100;
  17. chg = c[0]-c[-1];
  18. hi30 : array;
  19. lo30 : array;
  20. hi30 = hhv(c,30);
  21. lo30 = llv(c,30);
  22. r30 = (1-(lo30/hi30))*100;
  23. p50 : array;
  24. p50 = mov(c,50,'s');
  25. if c[0] >= p50[0] then off50 = (1-(p50[0]/c[0]))*100;
  26. if c[0] < p50[0] then off50 = (1-(c[0]/p50[0]))*100;
  27. p200 : array;
  28. p200 = mov(c,200,'s');
  29. if c[0] >= p200[0] then off200 = (1-(p200[0]/c[0]))*100;
  30. if c[0] < p200[0] then off200 = (1-(c[0]/p200[0]))*100;
  31. v50 : array;
  32. v50 = mov(v,50,'s');
  33. vv50 = (v[0]/v50[0])*100;
  34. v5 = (v[-1]+v[-2]+v[-3]+v[-4]+v[-5])/5;
  35. v5v50 = (v5/v50[0])*100;
  36. v10 = (v[-1]+v[-2]+v[-3]+v[-4]+v[-5]+v[-6]+v[-7]+v[-8]+v[-9]+v[-10])/10;
  37. v10v50 = (v10/v50[0])*100;
  38. opengraph(2);
  39. sizegraph(4,2);
  40. graph(1,' '+format(c[0],'$%3.2f')+' is '+format(oh,'%2.1f%')+
  41. ' off '+format(hiqc[0],'$%3.2f')+' high.  Change= '+format(chg,'$%2.2f')
  42. +'  30 Day Range= '+format(r30,'%3.1f%'),p50,''+format(off50,'%2.f%')+
  43. ' off 50MA',p200,''+format(off200,'%2.f%')+' off 200MA');
  44. graph(v,'Today='+format(v[0],'%5.f')+'     50MA='+format(v50[0],'%5.f')
  45. +'    %Today='+format(vv50,'%4.f%')+'     5MA= '+format(v5v50,'%3.f%')
  46. +'   10MA= '+format(v10v50,'%3.f%')+' of',v50,'50MA');
  47. closegraph();
  48. return;
  49.